1 FORI=0TO17:READD$:DOKEI*2+360,VAL("#"+D$):NEXT:DOKE587,368:POKE586,76:DATAE00
2 DATA10,,F,8A48,9848,AD48,2DF,CF0,7F29,628D,A201,A062,2001,FA86,A868,AA68,4068